home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / gear / paint / mouse1.bas < prev    next >
BASIC Source File  |  1993-11-30  |  204b  |  10 lines
  1.     5 mouse 0
  2.     6 mouse 1,0,0,1
  3.     7 mouse 4,0,0,639,399
  4.    20 if mouse(2,0)=-1 then A=A+1
  5.    25 if mouse(2,1) then goto 60
  6.    30 if A>7 then A=0
  7.    35  paint (0,0),A
  8.    40 goto 20
  9.    60 end
  10.